home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 441 / vdisrc12 / vdiattr1.s < prev    next >
Text File  |  1990-11-23  |  4KB  |  104 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* VDIFAST Public Domain VDI bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8.           .iif      !(^^macdef VContrl),.include  "vdimacro.s"
  9.  
  10. ;*************************************************************************
  11. ;*
  12. ;* Attribute functions 1.
  13. ;*  This random collection is all in one module because if you use any
  14. ;*  one of these functions the overhead of having them all linked in is
  15. ;*  only about 50 bytes.
  16. ;*  
  17. ;* vatt_1i1r        - Internal routine.
  18. ;* _vswr_mode       - Set writing mode.
  19. ;* _vsl_type        - Set polyline type.
  20. ;* _vsl_udsty       - Set polyline user-defined style.
  21. ;* _vsl_color       - Set polyline color.
  22. ;* _vsm_type        - Set polymarker type.
  23. ;* _vsm_color       - Set polymarker color.
  24. ;* _vst_rotation    - Set text baseline angle.
  25. ;* _vst_font        - Set text font/face.
  26. ;* _vst_color       - Set text color.
  27. ;* _vst_effects     - Set text special effects.
  28. ;* _vsf_interior    - Set fill interior type.
  29. ;* _vsf_style       - Set fill interior style.
  30. ;* _vsf_color       - Set fill interior color.
  31. ;* _vsf_perimeter   - Set fill perimeter visibility.
  32. ;*
  33. ;*************************************************************************
  34.  
  35. ;*------------------------------------------------------------------------
  36. ;*-----------------------------------------------------------------------
  37. ;* vatt_1i1r
  38. ;*  For VDI attribute calls that use 1 intin, 1 intout (most of them).
  39. ;*  Entry:  d0.w = VDI function number.
  40. ;*-----------------------------------------------------------------------
  41. ;*------------------------------------------------------------------------
  42.  
  43. vatt_1i1r:
  44.           .cargs    #8,.handle.w,.integer.w
  45.           link      a6,#-2
  46.  
  47.           VContrl   d0,,,#1
  48.           
  49.           subq.l    #4,sp               ;* -> ptsout
  50.           pea       -2(a6)              ;* -> intout
  51.           subq.l    #4,sp               ;* -> ptsin
  52.           pea       .integer(a6)        ;* -> intin
  53.           pea       16(sp)              ;* -> contrl
  54.  
  55.           jmp       vdicall
  56.  
  57. ;*------------------------------------------------------------------------
  58. ;* Attribute stuff that uses 1 intin, 1 intout...
  59. ;*------------------------------------------------------------------------
  60.  
  61. _vswr_mode::                            ;* Set writing mode.
  62.           moveq.l   #32,d0
  63.           bra       vatt_1i1r
  64. _vsl_type::                             ;* Set polyline type.
  65.           moveq.l   #15,d0
  66.           bra       vatt_1i1r
  67. _vsl_udsty::                            ;* Set polyline user-defined style.
  68.           moveq.l   #113,d0
  69.           bra       vatt_1i1r
  70. _vsl_color::                            ;* Set polyline color.
  71.           moveq.l   #17,d0
  72.           bra       vatt_1i1r
  73. _vsm_type::                             ;* Set polymarker type.
  74.           moveq.l   #18,d0
  75.           bra       vatt_1i1r
  76. _vsm_color::                            ;* Set polymarker color.
  77.           moveq.l   #20,d0
  78.           bra       vatt_1i1r
  79. _vst_rotation::                         ;* Set text baseline angle.
  80.           moveq.l   #13,d0
  81.           bra.s     vatt_1i1r
  82. _vst_font::                             ;* Set text font/face.
  83.           moveq.l   #21,d0
  84.           bra       vatt_1i1r
  85. _vst_color::                            ;* Set text color.
  86.           moveq.l   #22,d0
  87.           bra.s     vatt_1i1r
  88. _vst_effects::                          ;* Set text special effects.
  89.           moveq.l   #106,d0
  90.           bra.s     vatt_1i1r
  91. _vsf_interior::                         ;* Set fill interior type.
  92.           moveq.l   #23,d0
  93.           bra.s     vatt_1i1r
  94. _vsf_style::                            ;* Set fill interior style.
  95.           moveq.l   #24,d0
  96.           bra.s     vatt_1i1r
  97. _vsf_color::                            ;* Set fill interior color.
  98.           moveq.l   #25,d0
  99.           bra.s     vatt_1i1r
  100. _vsf_perimeter::                        ;* Set fill perimeter visibility.
  101.           moveq.l   #104,d0
  102.           bra.s     vatt_1i1r
  103.  
  104.